home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Computer Club 13
/
Commodore_Computer_Club_13_19xx_-_es.d64
/
test teclado
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
58 lines
10 clr
50 dim ct(30),x(30)
100 poke53280,0:poke53281,0
120 print"[147]
140 [153]" test de velocidad con el teclado
160 print"[158] este programa sirve para medir tu co-
180 [153]" nocimiento del teclado y velocidad
200 print" de reaccion.
220 [153]"list pulsa una tecla
230 geta$:ifa$=""then230
240 print"[147][158] a la izquierda de la pantalla apare-
260 [153]" ceran las letras del alfabeto, pero
280 print" el orden es aleatorio.
300 [153]" cuando aparezca una letra nueva a la
320 print" izquierda, debes pulsar la tecla co-
340 [153]" rrespondiente lo antes posible.
350 print"[155] pulsa una tecla
380 [161]a$:[139]a$[178]""[167]380
400 [153]"load selecciona el nivel
410 input"[158] 0,rapido a 255,lento ";vv
430 print" preparado
440 [129]t[178]0[164]1500:[130]
450 [153]"list pulsa una tecla
480 geta$:ifa$=""then480
500 rem * * * * * * * * * * * * * * * *
550 print"[147]"
600 fort=1to26
650 s=int(26*rnd(0)+1)
670 ifx(s)=1then650
700 x(s)=1
750 poke198,0
780 print""
800 printchr$(64+s);
830 poke646,int(rnd(0)*15+1)
850 getg$:ifg$=""theng$="0"
860 forr=0tovv:next
870 ct(s)=ct(s)+1
900 ifasc(g$)-64=sthen990
920 printchr$(64+s);
950 ifct(s)<35 then 850
990 next
1000 print"[147]
1040 [153]" resultados
1060 print""
1100 fort=1to26
1120 print "[154] ";chr$(t+64),"=";ct(t),
1140 m=m+ct(t)
1150 next
1200 print" [153]media=";m/26
1210 fort=0to2500:next
1220 poke198,0
1250 print"[155] pulsa una tecla
1270 [161]g$:[139]g$[178]""[167]1270
1300 [153]"load
1340 print" otra vez (s/n)"
1400 getg$:ifg$=""then1400
1450 ifg$="s"then10